Top 10k strings from Utility Compilation 60 (19xx)(-).trd in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Utilities & Educational - [TRD] (TOSEC-v2007-01-01) /
Back to the directory listing
12 FFFFFFFFFFFFFFFFFFFF
9 (NOT LST X)
8 load"":run
8 *B\"E\:D\=2G\
7 F#N#^#~#fo
7 (PP Start tape for recording)
7 (Expression-Parse X Y Z)
7 (DELCL X Y)
6 ((exp-parse (X|Y) (X|Z))
6 (exp-parse Y Z))
6 (exp-parse Y Z)
6 (SPACE Y)
6 (PP No (more) answers))
6 (P "error&")
6 (Goto-P X x y))
5 VAR N:INTEGER;
5 No such lin
5 No Table Space
5 No POP dat
5 Missing LOO
5 LOOP without D
5 GGGGGGGGGGGG
5 #~#N#F_=W(
5 #s#r###s#r
5 Sy=(<={ /
4 nzz,ncc,popep,m,
4 need an lvalue
4 hhhhhhhhhhhhhh
4 eExponent expected
4 e"Ct!Ct"=\>
4 e"$`!Gt"Et!
4 bcdehlspixiy
4 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa!
4 aaaaaaaaaaaaaaaaaaaaaaaaaaa
4 YS MEGABASIC
4 X too large
4 System Call Error
4 Syntax error
4 START TAPE
4 PROC stack underflow
4 PROC stack overflow
4 Out of RAM
4 OK-Searching
4 Number too large
4 Number expected
4 No END PRO
4 N:*WINDOW3
4 N#F#^#V##~
4 Missing parameters
4 Missing DEF PRO
4 Maths Call Error
4 Line not found
4 Index too Low
4 Index too High
4 Illegal window
4 Halt at PC=
4 FX not implemented
4 End Address:
4 ANOTHER COPY ? (Y OR N)
4 :*TPATpat:
4 :*SCREENSCR
4 2c`2``!&`"a`!0g"d`!
4 123456789012345678901234567890
4 +"W\#"S\"K\#"Y\
4 *(YM-Y0)+Y0
4 (oldrad-2.5
4 (oldrad+2.5
4 ((vartrans X (Y (/* vars|Z)|x))
4 ((sub X Y X)
4 ((show (X|Y))
4 ((less ~ X))
4 ((draw (X|Y))
4 ((EdC X Y Z)
4 ((COPYRIGHT 1983 LPA LTD (V 5 -29)))
4 ###~#fo###~#fo#~#fo
4 ###~#fo###~#fo
4 POKE(#5CE5,TYP);
4 N:=DOSCALL(#13,0,0,0,NAME);
4 M.Leaman 1984
4 MegaBasic
4 GRAPHICS
4 EXTENDED
4 (picture X)
4 (draw X)
4 (SUM 1 x Y)
4 (NOT VAR Y)
4 (NOT VAR X)
4 (KILL X)
3 z klavesnice
3 v$="VEGE":
3 szerkeszto
3 rse () ())
3 mode_2:ink 4:list
3 micshow-mod(show draw)(exp-parse picture)
3 incjp jr ld lddldinegnopor orgoutpoppusresretrl rlarlcrldrr rrarrcrrdrstsbcscfsetslasrasrlsubxorhalcpdcpidjnim indiniotdoti
3 ile first"))
3 errtrap-mod("?ERROR?")(q e s f c is-told tell data-rel)
3 b$=b$+" ":
3 adcaddandbitcalccfcp cpldaadecdefex exxin
3 a$=a$+" "
3 Y too large
3 Window too smal
3 Window too larg
3 Top of RAM?
3 Top of RAM for 'T'?
3 Table Size?
3 No more text
3 GGGGGGGGG;
3 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF&
3 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
3 ERROR=STAT=LINO=::\<
3 EEEEEEEEEGGG
3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
3 EEEEEEEEEEEEEEEE
3 DDDDDDDDDDDDDDD
3 CHR(16)..prehazuje vystup mezi obr. a tisk.
3 CHR(13)..cr and lf
3 CB\:G\<2D\!
3 ACDEFILMNOPRSTUVX
3 =2G\"E\*K\~
3 :*SCREEN SCR
3 2G\go"]\"E\:t\
3 +"Q\#"_\##N#F
3 *h\#wG#s#r
3 *(XM-X0)+X0
3 (PP to line edit call and resume enter : e)
3 ((true-of X Y)
3 ((respond tell (X|Y))
3 ((respond s X)
3 ((respond q X)
3 ((respond f X)
3 ((respond e X)
3 ((respond c X)
3 ((respond X (Y|Z))
3 ((respond / X)
3 ((reserved (func data-rel|X))
3 ((function X)
3 ((exp-parse X X)
3 ((exp-parse ((X|Y)|Z) ((X|Y)|x))
3 ((exp-parse ((= X Y)|Z) ((# (EQ x y) z)|X1))
3 ((exp-parse ((# X|Y)|Z) ((# (X|x) y)|z))
3 ((defined X)
3 ((accept X)
3 ((about X)
3 ((P-code 4 "Error in adding clau
3 ((P-code 3 "Too many variables or invalid form"))
3 ((P-code 2 "No clauses for relation"))
3 ((P-code 1 "Arithmetic underflow"))
3 ((P-code 0 "Arithmetic overflow"))
3 ((ON X (Y|Z))
3 ((ON X (X|Y)))
3 ((E-code 6 "CLOSE last used f
3 ((E-code 15 "Break ! during tape read or write"))
3 ((COPYWRITE 1983 LPA (V 6 -7)))
3 ((CONS X Y (X|Y)))
3 ((APPEND (X|Y) Z (X|x))
3 ((APPEND () X X))
3 ((+ X Y Z)
3 ((* X Y Z)
3 ((% X Y Z)
3 (("-" X Y Z)
3 #%),/258;>ADGKNSVY
3 "routines"
3 "K\#"Y\*=\
3 Mike Leaman 1985
3 (respond x X))
3 (respond x (Y|Z)))
3 (exp-parse Z x))
3 (exp-parse Z X1))
3 (exp-parse
3 (TIMES X Y Z))
3 (SUM Y Z X))
3 (SUM X Y Z))
3 (SAVE X))
3 (RFILL (ready) Y)
3 (RFILL (X) Y)
3 (PP to succeed call enter : s)
3 (PP to resume enter : c)
3 (PP to quit enter : q)
3 (PP to fail call enter : f)
3 (PP or enter : tell (see manual))
3 (PP Y K free)
3 (PP Hit ENTER key when)
3 (P or enter / "<any command>" (eg / add "<clause>" ,/ LOAD file))
3 (OR ((LST Y) (ADDCL ((X|Y))) / (accept X)) ((OR ((EQ Y end)) ((P " " Y not a list) (PP) (accept X))))))
3 (OR ((CL ((func X))) /) ((ADDCL ((func X))))))
3 (ON X Z))
3 (LOAD X))
3 (Expression-Parse Y x y)
3 (Expression-Parse (X Y) (x y) z)
3 (DIR X Y)
3 (DICT Y Z X|x))
3 (DELCL X Y))
3 (CL ((X|x)|y) Y Y)
3 (CL ((X|Y)|Z)))
3 (APPEND Y Z x))
3 (ADDCL y Y)
3 (ADDCL ((X|Z) (is-told (X
3 (ABORT))
3 ("?EQNTEST?" z)
3 ("?EQNTEST?" y)
3 START,LENGTH,MODE:INTEGER):BOOLEAN;
3
2 yyyyyyyyyy*
2 vkeep stre
2 use a predeclared structure for parameters
2 undefined variable(s)
2 undefined variable
2 undefined label:
2 type should be function
2 too much initialisation data
2 this variable was not in parameter list
2 structure cannot contain itself
2 storage class not valid in this context
2 sorsz=sorsz+1
2 qqqqqqqqqqqqqqq&
2 ppppppppppppppp
2 perewod9~isel9iz9
2 pbstack overflow
2 pEEEEEEEEEEEEEEEE/
2 pEEEEEEEEE9
2 not in switch
2 not in loop or switch
2 not in loop
2 not a preprocessor command
2 not a defined member of a structure
2 no arrays of functions
2 need a type name
2 need a pointer
2 need a constant expression
2 need a : to follow a ? - check bracketting
2 multiple use of identifier
2 multiple default statements
2 modules-mod(wrap save-mods unwrap)(Module)
2 missing 'while'
2 missing ')' in function declaration
2 missing ' '
2 macro buffer full
2 kkkkkkkkkk
2 j;:*chfnt:
2 illegal parameter type
2 iiiiiiiiii
2 hhhhhhhhhhhhhhh$
2 he wrong file, find another header
2 goto needs a label
2 generated code area is full
2 funkce, cte znak z k
2 exptran-mod(: Expression-Parse)(@ # + "-" ~ * % APPEND CONS func & and yes rel-form)
2 expecting a primary here
2 eljszama=eljszama+1
2 editor-mod(EDIT)(vars t n s b f m c e o u v w k i a yes no)
2 e$(eljszama,8
2 duplicate declaration of structure tag
2 duplicate declaration - type mismatch
2 duplicate declaration - storage class mismatch
2 duplicate declaration
2 direct execution not possible when translating
2 define include diagnostlist direct error translat
2 cannot use this operator with float arguments
2 cannot open file
2 can only define identifiers as macros
2 can only call functions
2 bad type combination
2 bad operand type
2 bad function return type
2 bad formal parameter list
2 bad declarator
2 bad declaration
2 bad character constant
2 aNo Space left
2 ``````````````````,
2 ``````````````````(
2 ``````````1
2 _____________________________________________________________
2 Z) t (X (x) Z))
2 X|x)|y) Y)
2 XXXXXXXXXX
2 VAR SX,SY:INTEGER;
2 VAR N,M:INTEGER;
2 VAR I:INTEGER;
2 Type y to run:
2 Tape Error
2 SPOUT(CHR(22));SPOUT(CHR(A));SPOUT(CHR(B))
2 SPOUT(CHR(17));SPOUT(CHR( 8));
2 RESTRICTION: use assignment or move() to initialise automatics
2 RESTRICTION: macros may not have parameters
2 RESTRICTION: cannot nest includes
2 RESTRICTION: can't manage initializers yet
2 RESTRICTION: Floating Point not implemented
2 RESTRICTION : floats not implemented
2 READ ERROR
2 PROCEDURE SPOUT(C:CHAR);
2 PROCEDURE PLOT(X,Y:INTEGER);
2 PROCEDURE PAPER(C:INTEGER);
2 PROCEDURE LINE1(X,Y,SX,SY:INTEGER);
2 PROCEDURE LINE(ON:BOOLEAN;X,Y:INTEGER);
2 PROCEDURE INK(C:INTEGER);
2 PROCEDURE DOSUSER(A:INTEGER);
2 PROCEDURE COPY;
2 OOOOOOOOO-
2 MMMMMMMMMMMMMMMM'
2 MICSHOW 01 X))
2 LINE1(ABS(X),ABS(Y),SX,SY)
2 LIMIT: no more memory
2 LIMIT : too much global data
2 LIMIT : too many types
2 LIMIT : too many case statements
2 LIMIT : name table full
2 LIMIT : local symbol table full
2 LIMIT : global symbol table full
2 LIMIT : expression too complicated - too many operators
2 LIMIT : expression too complicated - too many arguments
2 INLINE(1,0,3,#21,0,#58,#DD,#7E,2,7,7,7,#5F,#7E,#E6,#C7,#B3,#77,#23,#0B,
2 INLINE(#FD,#21,#3A,#5C,#DD,#56,2,#DD,#5E,4,#DD,#46,6,#DD,#4E,8,#CD,#BA,#24)
2 INLINE(#FD,#21,#3A,#5C,#DD,#46,2,#DD,#4E,4,#CD,#E5,#22)
2 INLINE(#DD,#6E,2,#DD,#66,3,#DD,#5E,4,#DD,#56,5,#CD,#B5,3,#F3)
2 IF ON THEN WRITE(CHR(21),CHR(0))
2 IF (C>=0) AND (C<8) THEN
2 Hisoft Pascal 4T 1.6M
2 HISOFT-C Compiler V1.1
2 GGGGGGGGGGDDDDDDDDDD
2 GGGGGGGGGG
2 FUNCTION LOAD(NAME:INTEGER;TYP:CHAR;
2 FFFFFFFFFFFF.
2 ERROR=STAT=LINE=::\<
2 ERROR - 27 - undefined symbol
2 ELSE WRITE(CHR(21),CHR(1));
2 EEEEEEEEEEEEEEEEEEEEEE#
2 EEEEEEEEEEEE
2 EEEEEEEEEE
2 Dictionary full
2 Destination of an assignment must be an lvalue
2 DDDDDDDDD4
2 DDDDDDDDD!
2 Cannot initialise this (disallowed type)
2 Cannot initialise this (disallowed storage class)
2 COMPILER, COMPILED & TRANSLATED PROGRAMS MAY USE CONSUL DRIVER
2 ACDFIMNOPRSVX
2 ?DDDDDDDDD
2 <<<<<<<<<<<<<<<<<<
2 ;"MegaCode"
2 ;"MegaBasic"
2 ;"Loading MegaBasic Version 1.1":
2 ;"LOADING LOGO"
2 ;"LOADING CODE"
2 ;" SPRITES"
2 ;" "
2 :*SCREENSCR0:
2 44032,r-44032
2 32768,d-32768
2 1-131E1H1K1N1Q1T1W1\1b1e1h1
2 0'02090G0J0S0a0h0q0
2 /g}/o#:#w<2#w
2 /*==!=++--&&||<=<<>=>>->
2 /'/,/3/6/B/R/U/n/
2 .$.;.?.O.[._.m.q.w.z.
2 -#-'-1-F-P-]-`-k-n-u-|-
2 ,(,/,@,C,J,P,Z,],c,f,l,p,~,
2 +#+J+S+\+_+b+h+
2 *{\++"pu"ru!
2 *a\+"U\*Y\
2 *a\"[\*M\"a\
2 *O\#####s#r
2 *ELLIPSEXM/2
2 **m~#"*mo&
2 *(*1*8*C*H*P*f*l*o*r*x*
2 *&-!~VU
2 )")%)()/)6)9)@)G)M)Q)`)})
2 ((works-with tape-recorder
2 ((works-with computer power-source))
2 ((vartrans X X))
2 ((sysop ~))
2 ((sysop /))
2 ((sysop +))
2 ((sysop *))
2 ((sysop %))
2 ((sysop "-"))
2 ((symbval ()))
2 ((symbval ((X|Y)|Z))
2 ((sub X Y Z)
2 ((sub (X|Y) Z (x|y))
2 ((sub () X ())
2 ((name ~ "-")
2 ((name X X))
2 ((name / %)
2 ((listvars () ())
2 ((listp X (Y|Z))
2 ((listp X ()))
2 ((less + X))
2 ((less "-" X))
2 ((knows Nicolas Programming-Language))
2 ((is-the-best-of ST Atari))
2 ((fn1 APPEND))
2 ((delete X)
2 ((Zip X X Y Y)
2 ((Zip (X|Y) (Z|x) y z)
2 ((Zip () () X X)
2 ((X-parse X Y Z x)
2 ((UpC (X Y Z) x)
2 ((SUM 1 z Y) (FIND X z Z x)) ((EQ (Z x) (Y y)))))
2 ((SHIFT-R X Y Z x y z)
2 ((SHIFT-L X Y Z x y z)
2 ((Rev-list (X|Y) Z x)
2 ((Prompt X Y)
2 ((P-code X " "))
2 ((P-code 22 "Illegal colour"))
2 ((ON X (Y|Z) x)
2 ((Insert-in-P X X Y)
2 ((Insert-in-P 0 1 X)
2 ((Goto-P X Y Z)
2 ((Goto-P X Y "No clause")
2 ((FIND X Y Z x)
2 ((Expression-Parse X Y Z)
2 ((Expression-Parse X X Y)
2 ((Edit-term X Y)
2 ((Edit-in-C X n Y)
2 ((Edit-in-C X m Y)
2 ((Edit-in-C X k Y)
2 ((Edit-in-C X b Y)
2 ((Edit-in-C (X Y Z) w (X (x) y))
2 ((Edit-in-C (X Y Z) i (X (x) y))
2 ((Edit-in-C (X (Y) Z) u (X (x) y))
2 ((Edit-in-C (X (Y) Z) s (X (x) Z))
2 ((Edit-in-C (X (Y)
2 ((Edit-in-C (X
2 ((EdP X Y Z x)
2 ((EdC X Y o)
2 ((E-in-P X Y Z v Y ((X|x)|y))
2 ((E-in-P X Y Z n x y)
2 ((E-in-P X Y Z k x y)
2 ((E-in-P X Y Z b x y)
2 ((E-in-P X Y (Z|x) t y z)
2 ((E-in-P X Y (Z|x) e y z)
2 ((E-in-P X Y
2 ((D-C (X|Y) (X) Y))
2 ((D-C () () ()))
2 ((COPYRIGHT 1983 LPA LTD (V 7 -19)))
2 ((COPYRIGHT 1983 LPA LTD (V 6 -16)))
2 ((Append-in-P X Y Z
2 ((Append-in-P X 0 1 Y)
2 (("?ERROR?" X Y)
2 (("?ERROR?" 2 (X|Y))
2 (!(((+(/(8(A(D(G(d(g(q(w(}(
2 '&'/'6'<'?'B'F'I'L'O'V'd'g'q'v'|'
2 &0&9&A&J&R&Z&b&m&r&u&x&
2 %Wgs&%$3210/..-
2 %BLOCK OK
2 %#%*%1%9%E%H%K%O%Z%]%`%c%j%u%}%
2 $&$,$9$<$?$H$K$T$W$Z$`$v$
2 $$=? STXW<>RP|^&OQ+-*/%
2 #H#S#Y#^#b#h#t#~#
2 ###~#fo#~#fo
2 #"a\"c\"e\!
2 "8";"LOAD ";
2 "1";" "
2 "''"and from the graphics cursor:
2 " "6"9"<"?"B"G"K"N"Q"["a"f"i"v"}"
2 !!!'!.!@!U!^!c!f!n!r!x!}!
2 Y Z) a (x (y) Z))
2 WRITE(CHR(21),CHR(1));
2 WRITE(CHR(21),CHR(0))
2 SPOUT(CHR(16));SPOUT(CHR( C))
2 N:=DOSCALL(#0A,0,0,0,0);
2 M:=DOSCALL(#0A,0,0,0,0);
2 LOAD:=FALSE;
2 INLINE(#FD,#21,#3A,#5C,#DD,#7E,2,#D7)
2 INLINE(#FD,#21,#3A,#5C,
2 INLINE(#DD,#7E,2,#E6,#7F,
2 INLINE(#DD,#6E,2,#DD,#66,3,#E5,#C3,#21,#3D);
2 INLINE(#DD,#56,8,#DD,#5E,6,#DD,#46,4,#DD,#6E,2,#DD,#66,3,
2 IF(N<128) THEN BEGIN
2 IF M<128 THEN BEGIN
2 IF (C>=0) AND (C<8) THEN
2 I:INTEGER;
2 A:ARR;M:INTEGER);
2 A,B:ARR);
2 : does not follow a ? properly
2 1992. V.Vasilevskij.
2 " 0 : F I M Q T W [ a
2 POKE(#5CF9,CHR(0));
2 N:=DOSCALL(8,N,0,0,0);
2 N:=DOSCALL(#0E,MODE,0,LENGTH,START);
2 LOAD:=TRUE;
2 (vartrans x y1))
2 (vartrans x y)
2 (vartrans Z ((X|x)|y)))
2 (vartrans Y x)
2 (vartrans Y Z)
2 (vartrans X Y)
2 (sysop X))
2 (symbval Y)
2 (sub y Z (Y|x)))
2 (sub Y Z y))
2 (sub X Z x)
2 (shrink Z y)
2 (listvars
2 (listp X Z))
2 (fn1 X))
2 (exp-parse X Y)
2 (dict Y)
2 (bind Z y Z1 () x1)
2 (Zip Y x X1 z))
2 (Zip X Y Z x))
2 (X-parse X Z y X1)
2 (X-parse X Y Z ())
2 (WRITE $$$$$$$$.### (((Module X Y Z))))
2 (Update-p X Y X1 z y))
2 (Update-p X Y ((X1|Y1)|Z1) z y))
2 (UpC X Y)
2 (SUM x1 1 y)
2 (SUM Y x X1)
2 (SUM Y X1 Y1)
2 (SUM X1 1 x)
2 (SUM X1 1 Y1)
2 (SUM 1 Z X)
2 (SUM 1 Y x)
2 (SUM 1 Y Z1)
2 (Rev-list Y (X|Z) x))
2 (Rev-list X y x))
2 (RFILL (ready) y)
2 (RFILL (Y) x))
2 (RFILL ((Z|x)) X1)
2 (Prompt (Z) x)
2 (PP X assumed not to be function name)
2 (PP Saving module Y in file X)
2 (PP Rewind tape to start of saved program)
2 (PP No (more) info about X))
2 (PP Loading program from tape)
2 (PP Hit EN
2 (OPMOD X)
2 (ON (Z X) Y EQ)
2 (NextC X Y))
2 (NOT SYS X
2 (NOT CL ((rel-form)))
2 (NOT CL ((X|z) (/* vars|X1)|Y1) Y Y)
2 (NOT ? ((EQ Z "No clause") (LESS 0 Y)))
2 (LOAD $$$$$$
2 (LISTP X Y)
2 (LISTP $$$$$$$$.###)
2 (LESS 0 X)
2 (LESS -1 Y))
2 (IF (LESS Z 0) ((shift-l X Z Y)) ((LESS 0 Z) (shift-r X Z Y))))
2 (IF (LESS Y1 0) ((EQ x1 0)) ((EQ
2 (IF (EQ y "No clause")
2 (IF (EQ X "No clause") ((EQ Y Z)) ((SUM Y 1 Z))))
2 (Goto-P X y z))
2 (Goto-P X Y y)
2 (Front-C z x y X1))
2 (FIND X Y1 y z))
2 (Edit-term x Y))
2 (Edit-term X Y))
2 (Edit-term (() (Z) x) ((X1|Y1)|Z1))
2 (Edit-in-C X Z x)
2 (EdC X Y x))
2 (EQ y1 ((X|z) (/* vars|x1)|Y1))
2 (EQ y (Y x)))
2 (EQ Z ((X|z)|Y1))
2 (DisplayC X Z)
2 (Delete-in-C X Y))
2 (DELCL X Z1)
2 (DELCL ((Module Y Z x)))
2 (CREATE X)
2 (CLOSE $$$$$$$$.###)
2 (CL ((func X))))
2 (CL ((data-rel X)))
2 (CL ((X|x) (/* vars|z)|y) Y Y)
2 (BackC X Y))
2 (App-C y ((vars|z)) X)
2 (App-C Y Z y))
2 (App-C Y Z y)
2 (App-C Y Z X1)
2 (App-C Y Z (x|y)))
2 (App-C Y X x))
2 (App-C (Y|x) ((vars|y)) X))
2 (APPEND z (Z) X1))
2 (APPEND x (y)
2 (ADDCL y1 Y)
2 (ADDCL x Z))
2 (ADDCL Z x1)
2 (ADDCL Z X1)
2 (ADDCL Z 0))
2 (ADDCL Y 0))
2 (ADDCL ((
2 #78,#B1,#20,#EE);
2 PAPER(C:INTEGER) - C: 0..8.
2 LINE1(X,Y,SX,SY:INTEGER) - draw line from X,Y to X+SX,Y+SY.
2 LINE(ON:BOOLEAN;X,Y:INTEGER) - draw (ON=TRUE) or clear
2 INC(C:INTEGER) - C: 0..8.
2 COPY - copy screen to printer.
2 ret
2 E RPW !"#$%&'()*+,-./DDDDDDDDDD:;<=>?@LLLLLLLLLLLLLLLLLLLLLLLLLL[\]^L`LLLLLLLLLLLLLLLLLLLLLLLLLL{|}~
2 (ON=FALSE) line from current position (x,y) to x+X,y+Y.
2 #FD,#CB,#01,#CE,
2 #CD,#AC,#0E,#FD,
2 #CB,#01,#8E,#F3,
2 #C9)
2
1 ~astx9fajla9
1 ~SPRITE1AD
1 ~COMPCODEC
1 ~#^#V#N#F#
1 |LOADER B
1 {________________________}
1 {RTCODE C
1 { 17.1.1985 Pascal compiler-Pascal editor-Consul driver UDG
1 { PROCEDURES WORKING WITH SCREEN & LOUDSPEAKER.
1 { Package TURTLE - 2D graphics.
1 { RAM CONTROL FOR SPECTRUM 128K
1 { HISOFT PASCAL & BETA-DISK.
1 zrus znak na soucasne pozici kurzoru
1 zpusobi navrat do editoru
1 znovu zacni editovat editovanou radku,avsak z jeji puvodni podoby
1 zcExponent expected
1 zastaveni vypisu:CS
1 zapisatx9sektor
1 zapisatx9dorovku
1 zahrnuti casti programu z pasky,nezabira panet
1 z=z+((a$+" ")(z+1
1 ySPRITES C;
1 yIllegal statement foun
1 y+yp*tl>170
1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
1 xxxxxxxx1w
1 xxxxxxxx1q
1 xp-parse x z)
1 xSPRITE2BC
1 x=x+xp*tl:
1 x+xp*tl>250
1 x too small
1 x je typu integer, udava adresu, druhy argument je typ, je tovysledny typ
1 while,r-while-1
1 where filename must have 8 characters exactly (you must
1 wSPRITE2AC9
1 wGRAPH C
1 w(rsp)=w(rsp)-1
1 w(rsp)=p(1
1 vypis zbytek radku
1 vynechavani radek
1 vynechana procedura dispose, misto ni MARK a RELEASE
1 vynech vsechny znaky od soucasne pozice kurzoru do konce radku
1 vszama=vszama+1
1 vonalhuzo=20
1 vncim=vncim+7
1 vkladej znaky od soucasne pozise kurzoru,RETYRN pro ukonceni vkladani
1 vegrehajto=700
1 vegrehajto
1 var a:array[1..3]of T;
1 valtozok kezelese
1 valtozok es parameterek
1 valtozo=800
1 vLASLOBJ C
1 v(vm)=prvege+1
1 v(vm)=e(a,1
1 v$="NEMVEGE"
1 v komentari za "$",nasleduje znak "+|-""," a znova znak,je-li treba
1 v je integer,vola strojak,ten musi koncit ret
1 uLASOBJ C
1 typ record nesmi mit va-
1 typ file neni implemento- van
1 true,false
1 trace-mod(??)("y" n s q f)
1 totez jako out
1 text z radky n se presune do radky m s vynechanim textu obsazeneho v teto ra
1 text pointer se inkremen- tuje,zobrazuje se nasledujici znak
1 text od radky n je kompilovan
1 tLASSCR C
1 s~itatx9dorovku
1 szerkeszto=1000
1 szamkereso
1 substituuj string z Fn,...
1 stro~n=9bukwy
1 string (unsigned constan) uvozen "'",max 255 znaku
1 sorsz,tab;b$:
1 sorhossz=sorhossz-a:
1 sleduji vprogramu ROZPAD.
1 sizeauto
1 sistemnoj9dorovke
1 seznamu alternativu
1 sektorow>>
1 riantni cast
1 reen nebo newpage
1 radky v rozsahu n az m jsou nahrany na pasku pod nazvem s
1 r(rsp)=i+1
1 q#p*l\"n\*n\#"]\!
1 program=2000
1 program nema parametry
1 procedury a funkce nemo- hou byt formalnimi para- metry
1 pro zacatek vsak nejsou nezbytne.
1 prikaz pri pouziti jineho editoru
1 prikaz case muze mit pri vycerpani prvku
1 pri chybe E nebo P pro na-vrat do editoru,pri cemko-
1 prazdny seznam v prikazu
1 pouze rozdily
1 pote navrat do editoru:CC
1 posune kurzor na konec radku
1 posun text pointer na dalsi tabulovanou pozici
1 pointer na typ ktery ne- byl deklarovan neni povo- len
1 podtwerdite9
1 podprikazy:
1 po uspesne kompilaci po otazce RUN vlozit Y pro spusteni,cokoli jineho
1 perezapisatx
1 parvalt=300
1 parancsotnem tarol
1 parancs=1300
1 parametrem je promenna, vysledkem je mnozstvi
1 pameti zabrane touto promennou
1 pak fcni hodnotou je chr(0)
1 pEEEEEEEEE:Y
1 pEEEEEEEEE:S
1 pEEEEEEEEE:
1 pEEEEEEEEE9I
1 p(par)=e(b,c+1
1 p$+sorhossz+1
1 owerflow check(O+)
1 oldrad=rad
1 odlazeny program je prelozen tak,ze prepise kompilator
1 oMB v4.21CY
1 oLASER1.3Bw
1 nyiltorlo=10
1 nyilrajzolo=45
1 nyilrajzolo
1 nyelvtani hiba
1 nowye_dorovka
1 nemohou byt vzajemne michany; nelze provest prirazeni a:=b;
1 navrat do basicu
1 najti9fajl
1 nahrava promenne z pasky
1 nahrava promenne na pasek
1 nahraje program na pasku ve forme, jaka muze byt pouzita pri option
1 nahraja text z pasky do pameti
1 na obrazovku nebo na tiskarnu
1 nStart tape, then press any key
1 muze byt pote nahran na pasku pro okamzite pouziti
1 micro-mod(which all is one add kill edit cedit space delete list true-of accept function # save load dir defined ON APPEND CONS reserved @ % = ~ "-" + * exp-parse)(yes c func end help Expression-Parse)
1 mezi radkami n azm hledej string f, pri nalezeni substituuj string s
1 meni podprikaz
1 meni pocet radek vypisova-nych pri listinky na obra-zovku
1 melegindito=9500
1 melegindito:
1 melegindito
1 maxint...32767
1 li jinem pokracovani vypi-su
1 legyen levagasa
1 ldinegnopor orgoutpoppusresretrl rlarlcrldrr rrarrcrrdrstsbcscfsetslasrasrlsubxorhalcpdcpidjnim indiniotdoti
1 l Sinclair))
1 kontroluje preteceni stacku(S+)
1 kontrolni promenna prikazuFOR musi byt nestrukturovana a nesmi byt parametrem.
1 kontrola mezi pri pristupu k polozkam poli
1 kontrola listinku pri kompilaci, (default: L+)
1 kontrola klavesnice pri behu(O+)
1 konec editovani,radka zus-tava ve sve puvodni podobe
1 konec editovani, jsou pla-tne vsechny provedene zmeny
1 konci program
1 kompilace: C line
1 klicove slovo packed je akceptovano ale ignorovano
1 jmen, ne struktury. Proto
1 jestlize hodnota selektoruneni nalezena, preda se rizeni prikazu nasledujicimu
1 jMEGA4.21BB
1 jMB C
1 it-in-C (X (Y) Z) e (X (x) Z))
1 ismetles befejezve
1 ism. verem mutato
1 integer...2 byte, 2 doplnereal...4 byte
1 int off screen"))
1 ing-Language))
1 iiiiiiiiiiiiiiyyyyyyyyyyyyyyxxxxxxxxxxxxxxhhhhhhhhhhhhhh<
1 i$=p$(v(vm)
1 i$=i$+" ":
1 hranice mnziny je 0
1 hledej dalsi vyskyt stringu urceneho prikazem F n,m...; editovaci mod bude
1 hideginditas
1 hhhhhhhhhhho`
1 hhhhhhhhh3s
1 hhhhhhhhh3r
1 ha valtozot talalt
1 grbet.2 C:
1 funkce. Je pouzitelne pro ziskeni dat libovolneho typu
1 funkce, cte znak z klavesnice,neni-li nic stisknuto
1 forget words
1 fordito=100
1 fenntartott szo
1 fenntartott szavak
1 fce,dava nahodne cislo 0- 255
1 fce, argumentem promenna lib. typu, vysledkem jeji
1 fMEGA 1.1BR
1 ertekadas=2200
1 eni Nicolas))
1 eltette az elj nevet
1 elteszi a vnevet
1 else,r-else-1
1 eljszama=1
1 eljaras=1700
1 elj.cim p$-ban+3 valt. erteke
1 elj. nevek+valt. nevek+valt.szam
1 edituj radku s poradovym cislem n
1 eBeta3.1 Cp
1 e(eljszama,1
1 e$(eljszama,vncim
1 e$(eljszama,
1 e"d`!}c"$`!
1 drive zkompilovany kod je zpusten
1 disk with this name. In other case it will be saved on tape.
1 dict wants-to-play))
1 desetinna cast,pro zapornedoplnek
1 dekrementace text pointeru
1 da vyraz v do pameti pocinajic pametovym mistem x
1 d$=p$(vkezd
1 d$=e$(b,vncim
1 d$=d$+" ":
1 constant::="CHR("constant ")" ;pro ridici znaky cr,lf,null...
1 cislo bez znamenka::= #hexdigit
1 cimek=2100
1 ci hex digits, dovoluje vkladat strojak primo do kodu
1 char...extended ASCII..256znaku
1 case pusobi chybu
1 c$=c$+p$(i+1
1 by Dario Arnoldi 1.d
1 bsigma Cw
1 boot BU(U()
1 behatarolo=200
1 behatarolo
1 bazovy typ mnoziny muze mit az 256 prvku,dolni
1 bB.BAS3.1BM
1 b:array[1..3]of T;
1 b$=p$(vkezd
1 b$=e$(b,vncim
1 b$=b$+" "
1 b$=a$(vkezd
1 b$="HERZLICH WILLKOMMEN"
1 azonosito=500
1 azonosito:
1 automaticky insertovaci mod
1 aktivovan v radce vydkytu stringu
1 ajF#N#V#^#~
1 adcaddandbitcalccfcp cpldaadecdefex exxinSYS:REM:LOAD""
1 aSIGMA2.0B
1 a/aLaVafa{a
1 a$=a$+n$(1
1 a$=a$+"VEGE ":
1 a$="proff"
1 a$="mc byte:":
1 a$="WHILE"
1 a$="UNTIL"
1 a$="REPEAT"
1 a$="Name Word:":
1 a$="HALLO DORIT & FRANK!"
1 a$="Forget ":
1 a$="File Name:":
1 a$="Enter character to redefine:":
1 a$="BEGIN"
1 a$="--->":
1 a$=" ........ Line "+
1 a$(x);"+":
1 ``~~``~8$BBBBB<
1 ``~~``~8$B
1 _zamena9diska
1 _wwod9komand
1 _wozwrat9w9
1 _stranica9wpered
1 _stranica9nazad
1 _prodos+ C`
1 _perekl`~enie9zagl=
1 _perekl`~enie9revimow9
1 _informaciq
1 _______________________________________________________________
1 ______________________________________________________________
1 _#V#"]\*S\
1 ^islo9NE9bolx{e
1 ]Procedure definition nesting erro
1 [WAITING FOR COMPACTER]
1 [DELETE ATOMS TO FREE MEMORY]
1 Zapustitx9fajl
1 Zapisatx9izmeneniq
1 Zapisatx9dorovku
1 Zapisatx99sektor
1 ZX Interface 1 not present
1 Z:=SLOPE+ROUND((F(X,Y)-Z1)*SCALE) ;
1 You're at toplevel
1 You don't say what to do with
1 YS MegaBasic v3.0
1 YS MegaBasic V4.0
1 YPRODOS+ B
1 Y=YY+(XX-1
1 Y:=Y1;SCALE:=175/(Z2-Z1) ;
1 XCOR,YCOR,HEADING:REAL;
1 X=XX+(XX-1
1 X:=X1;SLOPE:=I*STY;
1 X:=X*10;I:=I-1
1 X:=1;M:=0;I:=C;
1 Wyjti9iz9procedury
1 Wy9uwereny9
1 Wstawxte99prinima`}ij9dis
1 Wstawxte99kopiruemyj99dis
1 Window too small
1 Window too large
1 WRITELN;OUTR(A)
1 WRITELN('E+',E)
1 WRITE(CHR(12));BEEP(500,0.1);AT(0,0);
1 WRITE(CHR(12));
1 WRITE(A[I]:0);
1 WRITE('Krok:');READ(K);
1 WRITE('Interval pro x:');READ(X1,X2);
1 WRITE('Interval pro Z:');READ(Z1,Z2);
1 WRITE('Interval pro Y:');READ(Y1,Y2);
1 WRITE('Faktorial ');READ(L);WRITELN;
1 WINDOW INIT
1 WELCOME TO SINCLAIR LOGO
1 Vstup a vystup:
1 Version 4.21
1 Version 4.0
1 Version 3.0
1 Version 1.1
1 VAR SGNX,SGNY:INTEGER;
1 VAR NEWX,NEWY:REAL;
1 VAR I:INTEGER; C:CHAR;
1 VAR I,J:INTEGER;
1 V 3.02R 512K
1 Turtle out of field
1 Turtle out of bounds
1 Too many inside parentheses
1 This version (4.21) by
1 Tento Pascal pouziva pro kontrolu typu ekvivalenci
1 Tape error
1 Tape comands:
1 TURTLE
1 TURBO P1B{
1 TRACE 01in-P Z Y x y))
1 TOUT(ame,start,size):
1 TIN(name,start):
1 TER key when)
1 TDPLOT(X1,X2,Y1,Y2,Z1,Z2,K);
1 S~itatx99dorovku
1 Syntaxe a semantika
1 Swobodno>>>>>
1 Stertyh>>>>>>>>
1 Steretx9mark
1 Sistema in Error
1 SYS:REM:SAVE""
1 STOPPED!!!
1 SPRITE1AC:
1 SPECTRUM FLOATING-POINT FORTH isbased on FORTH-79 with additionsfor FLOATING-POINT arithmetic.
1 SPASKAL Bd
1 SIGMA BASIC V2.0T
1 SCR0=16384
1 S=_Peterburg
1 S(earch mode command keys [see F(ind to enter this mode]
1 R}*n\#w"n\*]\
1 ROBOT PROBLEM
1 R key when)
1 Procedury a funkce:
1 Procedure not define
1 Preddefinovane edentifikatory
1 Poznamky o implementaci dat a organizaci bloku jsou tez soucasti manualu,
1 Perwaq9swobodnaq9dorovka>>
1 Pereme}enie9kursora_klawi{ami9kursora
1 Pereimenowat
1 PbetbasicC@
1 Pascal v sobe neobsahuje graficke procedury,ty na-
1 PRODOS DEMONSTRATION
1 PROCEDURES.
1 PROCEDURES WORKING THROUGH ROM.
1 PROCEDURE WRHEADER(N:INTEGER);
1 PROCEDURE WRFILE(START,LENGTH:INTEGER);
1 PROCEDURE WRBUFF(TRK,SEC,NSECTS,BUFF:INTEGER);
1 PROCEDURE WINDOW(UP,LEFT,HEIGHT,WIDTH,FRAME,
1 PROCEDURE VPUTCHAR(LINE,POS:INTEGER;C:CHAR);
1 PROCEDURE VPUTATTR(LINE,POS,ATTR:INTEGER);
1 PROCEDURE VECTOR(A,L:REAL);
1 PROCEDURE TURTLE;
1 PROCEDURE TURN(A:REAL);
1 PROCEDURE SETXY(X,Y:REAL);
1 PROCEDURE SETUP;
1 PROCEDURE SETRAM(N:INTEGER);
1 PROCEDURE SETRAM(N:INTEGER) - set logical RAM page. Logical
1 PROCEDURE SETHEADER(A:INTEGER);
1 PROCEDURE SETHD(A:REAL);
1 PROCEDURE SETDRV(A:INTEGER);
1 PROCEDURE SEEK(T:INTEGER);
1 PROCEDURE SCRUP;
1 PROCEDURE SCRUP - set screen at #C000 (phisical RAM page 7).
1 PROCEDURE SCRDOWN;
1 PROCEDURE SCRDOWN - set screen at #4000 (phisical RAM page 5).
1 PROCEDURE RIGHT(A:REAL);
1 PROCEDURE RESET;
1 PROCEDURE RECTANGLE(X,Y,DX,DY:INTEGER);
1 PROCEDURE RDHEADER(N:INTEGER);
1 PROCEDURE RDFILE(START,LENGTH,MODE:INTEGER);
1 PROCEDURE RDBUFF(TRK,SEC,NSECTS,BUFF:INTEGER);
1 PROCEDURE RAMPORT(N:INTEGER);
1 PROCEDURE RAMPORT(N:INTEGER) - OUT (#7FFD),N (bit 5 reset).
1 PROCEDURE PLOT(ON:BOOLEAN;X,Y:INTEGER);
1 PROCEDURE PENUP;
1 PROCEDURE PENDOWN(C:INTEGER);
1 PROCEDURE LINE1(ABSDX,ABSDY,SX,SY:INTEGER);
1 PROCEDURE LINE(DX,DY:INTEGER);
1 PROCEDURE LEFT(A:REAL);
1 PROCEDURE HEXOUTNUM(I:INTEGER);
1 PROCEDURE HEXOUTCHAR(C:CHAR);
1 PROCEDURE GETSTRING(STR,N:INTEGER);
1 PROCEDURE GETHEADER(A:INTEGER);
1 PROCEDURE FWD(L:REAL);
1 PROCEDURE ERASE(NAME:INTEGER;TYP:CHAR);
1 PROCEDURE DELFILE;
1 PROCEDURE CLRBOX(UP,LEFT,HEIGHT,WIDTH:INTEGER);
1 PROCEDURE CHECK(X,Y:INTEGER);
1 PROCEDURE BEEPER(A,B:INTEGER);
1 PROCEDURE BEEP(FR:INTEGER;LE:REAL);
1 PROCEDURE BACK(L:REAL);
1 PROCEDURE ATTRBOX(UP,LEFT,HEIGHT,WIDTH,ATTR:INTEGER);
1 PROCEDURE AT(A,B:INTEGER);
1 PROCEDURE ARCR(R:REAL; A:INTEGER);
1 POKE(x,v):
1 PNAME PROPERTY NOT FOUND
1 PEEK(x,t):
1 PCC V1.1 Bz
1 PASCAL4TB@
1 Original version (3.0) by
1 Ob?em9fajla9iz
1 O9[9I9B9K9
1 Numero expected
1 Numero grande
1 Number too big
1 Nowaq9mask
1 Not enough space to proceed
1 Not enough items in
1 Not enough inputs to
1 Nesankcionirowannaq99kopi
1 Ne9TOT9disk99
1 Na~alo_dor=
1 Na9diske9NET9takogo9fajla
1 NOTE: filename will be reduced to 6 characters.
1 NOTE: Option 'include' work only with disk. If you don't 1:,
1 NEGNATOCCRA
1 Mnogo9sektoro
1 Mnogo9fajlo
1 Missing PROCEDUR
1 Mark=9fajlow
1 Made in England
1 MULT(A,K);WRITE(K)
1 MODULES 01
1 MODE_2:FONT_2:SOFF
1 MAX[I]:=0;
1 M:=M+A[I]/X;
1 L`S`Z`a`k`
1 LOGTXTBINSCR
1 LOGO not fresh
1 LOAD "SPRITE2B"
1 LOAD "SPRITE2A"
1 LLLLLLLLLLLLLLLLLL%w
1 LLLLLLLLLLLLLLLLLL%v
1 LISP 1.3B/
1 LET ERROR=USR 53010:REM:
1 LASER BASIC
1 Kopirowatx9s9
1 Kontrolx9diskow9
1 Konstanty:
1 Konec9_dor=
1 Kompilace a beh:
1 Kompilace a beh
1 Komentare:
1 KORSCHENBROICH-GLEHN
1 K:INTEGER;
1 Indice basso
1 Indice High
1 Include after VAR before any PROCEDURE & FUNCTION declarations.
1 If last filename have '1:' that exe-code will be saved on
1 Icc51d Cpb
1 INLINE(c1,c2,...):
1 INLINE(#FD,#21,#3A,#5C,#DD,#7E,2,#D7)
1 ILLEGAL NUMBER FORMAT
1 IF Y<0 THEN SY:=-1 ELSE SY:=1;
1 IF X<0 THEN SX:=-1 ELSE SX:=1;
1 IF FR=0 THEN FOR I:=1 TO ENTIER(12000*LE) DO
1 IB.BAS1.8B
1 I,J,K,L,M:INTEGER;
1 I don't know how to
1 Hisoft Pascal Disk 4T
1 Hisoft Pascal 4 1.5
1 Halt a PC=
1 HL,(#5C53)
1 HISTOGRAMM
1 HILFSSCREEN AT 5300
1 HCC-V1.1 BM
1 HANS-JOACHIM BERNDT
1 H:=A[I]+B[I]+F;
1 H:=A[I]*M;
1 GLOBAL VARIABLES.
1 GGGGGGGGGGGGEEEEEEEEEEEE"w
1 GGGGGGGGGGDDDDDDDDDD ^
1 GGGGGGGGG"}
1 GGGGGGGGG"
1 GGGGGGGGG!
1 GABOUT 0C
1 Fuori RAM
1 Fine indir.:
1 File not found
1 File exists,overwrite Y/N?
1 File already exists
1 Fajlow>>>>>>>>>
1 Fajlow>>>>>
1 Fajl99su}estwuet
1 FUNCTION SAVE(NAME:INTEGER;TYP:CHAR;
1 FUNCTION RENAME(OLDNAME:INTEGER;OLDTYPE:CHAR;
1 FUNCTION RAMINIT:BOOLEAN;
1 FUNCTION RAMINIT:BOOLEAN - test for 128K and set: RAM 0,
1 FUNCTION HEXDIGIT(D:INTEGER):CHAR;
1 FUNCTION FINDFILE:INTEGER;
1 FUNCTION DOSCOMMAND(N:INTEGER):INTEGER;
1 FUNCTION DOSCALL(FUNCT,A,B,DE,HL:INTEGER):INTEGER;
1 FUNCTION COMMAND(N:INTEGER):INTEGER;
1 FUNCTION BITXOR(M,N:INTEGER):INTEGER;
1 FUNCTION BITOR(M,N:INTEGER):INTEGER;
1 FUNCTION BITAND(M,N:INTEGER):INTEGER;
1 FOR I:=1 TO 100 DO
1 FMICSHOW0C
1 FFFFFFFFFFFFFFFFFFFF2e
1 FFFFFFFFFFFFFFFFFFFF2d
1 FFFFFFFFF0V
1 FFFFFFFFF0U
1 F:=SIN(X)*COS(Y)
1 F:=F+A[I];D:=F
1 F:=10*(F-D*M);
1 F:=10*(F-A[I]*Y)
1 F n,m,f,s:
1 Errore matemat.
1 Err.nastro
1 EXhhXhEEEh
1 EXPTRAN 01
1 EVITIMIRP.
1 ELSE BEEPER(ENTIER(FR*LE),ENTIER(437500/FR-30.125));
1 EEXPTRAN0C
1 EERCSRAELC
1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEDDDDDDDDDDDDDDDDDDDDDDDDDDDDJ
1 EEEEEEEEEEEEEEEEEEEEEE#+
1 EEEEEEEEEEEEEEEE(#
1 EEEEEEEEEEEEEEEE("
1 EEEEEEEEEEEEEEEE(
1 EDITOR CONTROL KEYS
1 EDITOR 01x ((X|X1)|y))
1 EAL; A:INTEGER);
1 E:=EX(A);WRITE(A[E+1]:0,'.');
1 E:=E-1;EX:=E-1
1 E$="konec! "
1 Dlina9999fajla>>
1 Disk-Doctor
1 Disk Error
1 Dalsi fce:
1 DY:=(Y2-Y1)/176*STY;
1 DX:=(X2-X1)/256;
1 DMODULES0C
1 DEFINE STRING TO REPLACE
1 DEFINE STRING TO FIND
1 DDDDDDDDDDDDDDD+E
1 DDDDDDDDDDDDDDD+D
1 DDDDDDDDD4"
1 D UDG CHARS ; 80 COLUMNS PER LINE ; 64/32 COL SCREEN FORMAT
1 Copyright MICRODATA 1984
1 Copyright Hisoft 1983.
1 Copyright Hisoft 1983,84
1 Copyright
1 Can't divide by zero
1 CS & SS 'COMMAND' prompt valid command keys
1 CR(12)...clear screen nebo newpage
1 COR),ROUND(NEWY)- ROUND(YCOR));
1 CONVER Comander
1 COMPILER RAMTOP=60964; RAMTOP FOR 'T'=64899; default Table size
1 CHR(8)...destr.bspace na obrazovce
1 CE\#N#F"]\
1 CEDITOR 1C
1 CAN'T TAKE CDR OF
1 CAN'T TAKE CAR OF
1 C=\"B\z2D\
1 Bad file name
1 BProgram not compile
1 BIT-LET CSM-LOGO
1 BETA file not found
1 BETA file already exists
1 BETA adapted by M.Marckowsky
1 BEEP(2000,0.1);
1 BEDITOR 0C
1 BC:=p;A:=c;OUT (C),A
1 BASIC SYSTEM ERROR ? ? ?
1 B.BAS3.2BE
1 B,C,D,E,F,G,H:REAL;
1 Attention! Do not use graphic chr within Pascal program text !!
1 Aritmeticke funkce:
1 All rights reserved.
1 Adres9zagruzki>>
1 A[I]:=ROUND(10*FRAC(H/10))
1 A[I]:=A[I]-B[I];
1 A[I]:=A[I]+10;
1 A[I]:=(H+F)-10*((H+F)
1 ASN(A,1,0);
1 ARITHMETIC OVERFLOW
1 ARE INCORRECT ARGUMENTS
1 AND UDG CHARS ; 80 COLUMNS PER LINE ; 64/32 COL SCREEN FORMAT
1 AMICRO 1C
1 AMICRO 0C
1 ABCDEFG
1 A:=A MOD 22;B:=B MOD 32;
1 A$="SPRITE2B":
1 A$="SPRITE2A":
1 A$:*SCROLL1
1 @=Kowalewskij
1 >pbeta C
1 >02jGO TO
1 =pcode C
1 <PROLOG DBp
1 <POKEC C'
1 ;d$;" nem deklaralt valtozo":
1 ;VIDEO.I C
1 ;STRING.IC
1 ;LOAD.I C
1 ;FILE.I C
1 ;DOSFUN.IC
1 ;:*fillx+5
1 ;:*PLOT127
1 ;:*LINE127
1 ;"rUSIFIKACIQ 1991":*CHFNT
1 ;"l.kl`ew"
1 ;"SZALAG ALLJ!":
1 ;"SPRITE2B" ;
1 ;"SPRITE2A" ;
1 ;"SPECTRUM"
1 ;"PUT CARTRIGE IN DRIVE 1 AND THEN PRESS 'ENTER'"
1 ;"PUT CARTRIDGE IN DRIVE 1 AND THEN PRESS ANY KEY"
1 ;"PRESS 'M' TO COPY TO MICRODRIVE, ANY OTHER KEY TO CONTINUE"
1 ;"PRESS 'M' TO COPY TO MICRODRIVE PRESS ANY OTHER KEY TO CONTINUE"
1 ;"NEM ISMEREM A ";i$;" PARANCSOT!":
1 ;"From the main keyboard: !""#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
1 ;"FLOATING-POINT"
1 ;"CARICAMENTO DEL PASCAL"
1 ;"BY ";:*chfnt:
1 ;"BARMIVEL INDITHAT":
1 ;"<2>DIREKT"
1 ;"<1> SWAP ";
1 ;"5136 BYTES":*SWAP
1 ;" rusifikaciq, 1991 ";:*chfnt:
1 ;" INPUT SPRITE START ADDRESS "
1 ;" INPUT SPRITE FILE NAME "
1 ;" IS CORRECT (Y/N) ? "
1 :SYSTEM.IC
1 :MEMORY.IC
1 :DOS.I C
1 :*SWAP:*WINDOW7
1 :*SWAP:*HATCHXM/2
1 :*SCREENSCR:*CLS
1 :*SCREENSCR:
1 :*SCREEN43000
1 :*SCREEN SCR:*WSIZE0
1 :*NEW:*WSIZE0
1 :*NEW:*CCHR:*WSIZE0
1 :*LINEX1,Y1,X2,Y2
1 :*LINEN+13
1 :*LARGE:*CSIZE3
1 :*HATCHXM/2
1 :*FBOXX1,Y1,X2,Y2
1 :*ELLIPSEXM/2
1 :*CLS:*LARGE
1 :*CCHR:*CLS:*ELLIPSE XM/2
1 :*BOXX0,Y0,XM,YM
1 :*BOXN,Y0,N+10
1 9zapisatx99katalog
1 9stertyh>>>
1 9prerwatx9operaci
1 9ignorirowatx9fajl
1 9Konec9programmy9
1 9BITS.I C
1 9@=Kowalewskij
1 999swobodnoj9zone
1 8GRAPH.I C
1 7TURTLE.IC
1 77,#23,#0B,
1 73DPLOT C'
1 6SpecLisp 1.3
1 6MPAC C'
1 6HP80HELPC
1 6.RETN without DEF FN # erro
1 4. SAVE code after command 'T':
1 34ABCHJKLF
1 3. Option INCLUDE ($F):
1 2c`2``!&`"a`!
1 256128 48:
1 24598,19688
1 2. SAVE text file:
1 1Mf~|{'&%$#"#"y
1 1HPDHELP C
1 1991 L. Kluev "
1 17.1.1985 ADAMEK
1 1111111111111111111111111111111111111111118888888888888888888888888888888888888888888888888888888888888888
1 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
1 1. LOAD text file:
1 0HP80EC C%
1 0HP80 C
1 09:22:59000:00:000
1 08|||84$$EE,~
1 08|||84$$EE,9
1 08|||84$$EE,
1 00:47:09000:00:000
1 00:00:01000:00:000
1 00:00:00000:00:000
1 0,1350,TURTLE
1 0(LTL(4$$EE*Q
1 0(LTL(4$$EE*P
1 0(LTL(4$$EE*
1 0$0)00050C0F0I0L0\0b0t0w0z0}0
1 /"/+/5/@/H/K/V/a/h/v/y/
1 .".'.*.2.7.<.G.V.[.b.e.q.
1 -on Pinball Sinclair))
1 ----- COMMAND -----
1 -*n\#q#p"n\
1 - -'-+-.-;-E-M-S-j-n-~-
1 ,begin-r+254
1 ,begin-r+251
1 ,Y3:*LINEN,Y3-1
1 ,HP80D B
1 ,6,;,K,N,R,V,`,u,
1 +Prolog C
1 +PROLOG MB
1 +Micro C
1 +: (N=NUMBER) m$() MEMORY$ a(N,N) AND v(N,N) MOD b$(N) BIN$ n(C$) NUMBER c(N) COSE o(N,N) OR c$(N) CHAR$ r(N) RNDM d(H$) DEC k$(N,N) SCRN$ p(N) DPEEK s(N) SINE f() FILLED s$(N,S$)STRING$ h$(N) HEX$ u$(S$,N)USING$ i(N,A$,B$)INSTRING t$() TIME$ m() MEM x(N,N) XOR
1 +: (^=CAPS SHIFT) A ALTER 3 END PROC Q POP 6 AUTO I EXIT IF 2 PROC C CLOCK F FILL 4 RENUM 1^DEF KEY G GET R ROLL 1 DEF PROC 6^JOIN S SCROLL 7 DELETE 4^KEY IN M SORT D DO 8 KEYWORD T TRACE P DPOKE L LOOP K UNTIL 5^EDIT O ON U USING E ELSE N ON ERROR J WHILE
1 ++++++++++
1 +*+;+H+W+^+o+r+y+
1 +"Continue definition:":
1 *}\s#r*]\###"]\
1 *{\++":s"<s!
1 *n\#s#r"n\
1 *large:*csize2
1 *e\w#s#r#q#p#"e\
1 *]\#s#r#"]\
1 *Y\#"]\:t\
1 *W\#"S\"K\6
1 *WRAP:*WSIZE0
1 *TRIANGLEX1,Y1,X2,Y2,X3,Y3
1 *SWAP:*triangle16
1 *SWAP:*TPATpat:*WSIZE16
1 *SWAP:*PAINT8
1 *SWAP:*HATCH 127
1 *PLOTXX,YY
1 *PAINTXX-5
1 *PAINTXX-4
1 *PAINTX0+2
1 *PAINTX0+1
1 *NEW:*WSIZE0
1 *LINEXX,YY,X,Y
1 *LARGE:*CSIZE1
1 *HATCHXX,YY-5
1 *HATCHXX+5
1 *HATCHX,Y,
1 *FBOXN,Y0,N+10
1 *ELLIPSEXX,YY,XX,XX+1
1 *CCHR:*WSIZE2
1 *CCHR:*WSIZE0
1 *BOXX1,Y1,X2,Y2
1 */*2*9*<*@*D*G*J*M*R*y*
1 **x^#V#"*x
1 ***********************************************************BETA BASIC 1.8****************************************************STATEMENTS*************************AND**************************FUNCTIONS*********************************************
1 *(a$="s")-1000
1 *(a$="d")+3000
1 *(a$=":")+2000
1 )Illegal statement found during executio
1 );:*chfnt:
1 );" ";e(a,4
1 );" ";e(a,3
1 );" ";e$(a)
1 ):*HATCHXM/4
1 ):*HATCHXM/3
1 ),yp*(tl-1
1 )+"not known.":
1 )")&)+)3)J)W)`)g)r)w)
1 )
1 (wants Nicolas Amiga))
1 (is-the-best-of Amiga Commodore))
1 (a$+" ")(z+1
1 (PAPER 0:INK 6:BORDER 0:BRIGHT 0:CLS
1 (K*]\##T]#"]\
1 (FORALL ((ON Z (X|Y))) ((draw Z))))
1 (COPYWRITE 1983 LPA (V 6 -7)))
1 (******** OUTR ********)
1 (******** MULT ********)
1 (******** MANT ********)
1 (******** DIR ********)
1 (******** DI ********)
1 (******** ASN ********)
1 (******** ADD ********)
1 (******** EX ********)
1 (******* SUB ********)
1 ((which X)
1 ((which (X|Y))
1 ((wants-to-play Nicolas Defender-of-the-Crown))
1 ((wants-to-play Dima Impact))
1 ((wants Nicolas ST))
1 ((wants Nicolas SIMPLE))
1 ((wants Dima Sinclair))
1 ((wants Andrew IBM))
1 ((update X Y)
1 ((unwrap X)
1 ((shrink () ())
1 ((shrink ((X Y)|Z) (X|x))
1 ((shift-r X 0 X)
1 ((shift-r (X Y ()) Z (X Y ())))
1 ((shift-r (X (Y) (Z|x)) y (z X1 Y1))
1 ((shift-l X 0 X)
1 ((shift-l ((X|Y) (Z) x)
1 ((shift-l (() X Y) Z (() X Y)))
1 ((save-mods X)
1 ((save-mods
1 ((samevar X (Y Z))
1 ((playing Youri Tau-Ceti))
1 ((playing Paul Target-Renegade))
1 ((playing Nicolas Target-Renegade))
1 ((playing Kirill Target-Renegade))
1 ((playing Kirill Defender-of-the-Crown))
1 ((playing Eugeni Pinball))
1 ((ortrace X Y Z)
1 ((one (X|Y))
1 ((listvars (X|Y) ((Z X)|x))
1 ((list all)
1 ((kill all)
1 ((is-the-best-of Amiga Commodore))
1 ((is-pather-of Youri Nicolas))
1 ((is-mother-of Eug
1 ((is-modified-version-of SIMPLE Prolog))
1 ((is-game-on Tau-Ceti Sinclair))
1 ((is-game-on Target-Renegade Sinclair))
1 ((is-game-on Impact Sinclair))
1 ((is-game-on Defender-of-the-Crown ST))
1 ((is-friend-of Sarychev Nicolas))
1 ((is-friend-of Paul Nicolas))
1 ((is-friend-of Paul Dima))
1 ((is-friend-of Kirill Nicolas))
1 ((is-friend-of Dima Nicolas))
1 ((is-friend-of Andrew Nicolas))
1 ((init X Y)
1 ((have computer Prolog))
1 ((have Youri bobinnik))
1 ((have Sarychev ST))
1 ((have Sarychev IBM))
1 ((have Sarychev Amiga))
1 ((have Nicolas Sinclair))
1 ((have Nicolas Prolog))
1 ((have Kirill ST))
1 ((have Kiril
1 ((have Dima tape-recorder))
1 ((have Dima bobinnik))
1 ((have Andrew Sinclair))
1 ((edit X Y)
1 ((ed X Y Z)
1 ((dict works-with))
1 ((dict wants))
1 ((dict playing))
1 ((dict knows))
1 ((dict is-the-best-of))
1 ((dict is-pather-of))
1 ((dict is-mother-of))
1 ((dict is-modified-version-of))
1 ((dict is-game-on))
1 ((dict is-friend-of))
1 ((dict have))
1 ((dict Is))
1 ((delete X Y)
1 ((count 1))
1 ((cedit X)
1 ((cedit X Y)
1 ((bind X Y Y Z Z)
1 ((bind X (Y|Z) Z x ((X Y)|x))
1 ((bind X () () Y Y)
1 ((bind (X|Y) Z x y z)
1 ((bind () X X Y Y)
1 ((all-about X)
1 ((add X Y)
1 ((X-parse X X Y Y)
1 ((X-parse (X|Y) Z x y)
1 ((X-parse (X Y Z) x y z)
1 ((X-parse (X Y Z) x ((CONS y z x)|X1) Y1)
1 ((X-parse (X Y Z x|y) z
1 ((Update-p X Y Z x Y)
1 ((Update-p X Y ((X|Z)|x) ((X|Z)|x) Y)
1 ((Rev-list () X X))
1 ((P-code 5 "File error"))
1 ((P-code 13 "Line or point off screen"))
1 ((P-code 12 "Illegal use of modules"))
1 ((P-code 11 "Break !"))
1 ((NextC (X Y (Z|x)) (y (Z) x))
1 ((NextC (X (Y) ()) ((Y|X) () ())))
1 ((Is bobinnik tape-recorder))
1 ((Is Sinclair comp
1 ((Is Prolog Programm
1 ((Is Pascal Programming-Language))
1 ((Is MOA Andrew))
1 ((Is Lisp Programming-Language))
1 ((Is IBM computer))
1 ((Is Forth Programming-Language))
1 ((Is Commodore computer))
1 ((Is Basic Programming-Language))
1 ((Is Atari computer))
1 ((Is Assembler Programming-Language))
1 ((Front-C X (Y|Z) x (Y|y))
1 ((Front-C 0 () X X))
1 ((Edit-P X Y Z)
1 ((EdP X Y Z o)
1 ((E-in-P X Y Z m x y)
1 ((E-in-P X Y Z i x y)
1 ((E-in-P X Y Z c x Z)
1 ((E-in-P X Y Z a x y)
1 ((DownC X (() Y Z))
1 ((DisplayC (X (Y) Z) Y))
1 ((DisplayC (X () Y) "No term")
1 ((Delete-in-C ((X|Y) Z x) (Y (X) x)))
1 ((Delete-in-C (() X Y) (() () Y)))
1 ((COPYRIGHT 1983 LPA LTD (V 6 -15)))
1 ((BackC ((X|Y) Z x) (Y (X) y))
1 ((BackC (() (X) Y) (() () (X|Y))))
1 ((App-C (X|Y) Z (X|x))
1 ((App-C () X
1 (("?EQNTEST?" X)
1 (("?EQNTEST?
1 (%(.(6(<(?(C(H(N(Q(T(W(^(e(h(o(v(|(
1 'True Vid.'
1 'READY FOR CLEAR, ARE YOU SURE ? (Y/N):
1 'Inv. Vid.'
1 'Graphics'
1 'Caps Losk'
1 'CONVER-Utility' & Y.Kovalevsky
1 '(' EXPECTED
1 '''" Russian FONTS
1 ''"Stack:";(32717
1 ''" DQDQ lENQ, ZA RUSSKIE BUKWY! "
1 '&'.'6';'>'A'H'M'P'W'Z'^'g'p's'v'
1 '"for PENCRAFT GROUP, StPetersburg"
1 '"Word not found.":
1 '"Word already used.":
1 '"New definition of CHR$ ";c
1 '"(C)";:*chfnt:
1 '"(C) PRODOS BASIC, 1985 BY HJB";
1 &C&H&U&^&e&k&n&q&u&x&{&~&
1 %ctrl BP
1 %*%-%8%=%_%h%p%y%
1 $$$$$.###)
1 $!$%$0$3$;$@$H$M$R$Y$`$h$t$w$z$~$
1 #logo# C
1 #image C
1 #%),/258;\ADG
1 #"a\"c\"e\*
1 # ###&#)#,#/#G#L#U#[#h#k#n#w#z#
1 "pascal d"
1 "lisp C
1 "forth+hl"
1 "elj.cime","neve":
1 "e\"a\"c\*B\
1 "betbasic"
1 "a:megabasi"
1 "S\"K\"U\#"Y\
1 "PASCAL "
1 "MEGACODE"
1 "MB v4.21"
1 "LOGO 1.6B
1 "HP4S "
1 "From the main keyboard: !""#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
1 "Forgotten:";a$
1 "ELORE","HATRA","JOBBRA","BALRA","ISM","ISMVEGE","","VEGE","LEGYEN","IRD","+","-","*","/","ORR","ORRNE","PROGRAM","CIMEK","TINTA","PAPIR","KERET","KOZEP","SOS","TOLL","TOLLNE","SZIVACS","FELEJT","KONT","KOPIR","KOR"
1 "Disk OK.":
1 "Beta3.1"
1 "Beta Basic"
1 "BB+INSTRUC"
1 "==============================":
1 "8";"LOAD YOUR OWN SPRITES"
1 "8";"EXECUTE LASER BASIC"
1 "75200d4175746f737461727420 1161"
1 "62464",spst-
1 "62464",SPST-(
1 "6";" PRESS PLAY ON TAPE."
1 "4";"LOADING : ";A$
1 "4";" ";
1 "2d206c696e696120d2ee1b0181 1239"
1 "12345678901234567890123467890":
1 "1";"SPRITE START ADDRESS = ";SPST;" "
1 "1";" PLEASE SELECT OPTION . "
1 "1";" STOP TAPE "
1 "0009eb010900cd3c20c13e1fa0
1 "0";"....":
1 "0";" IS CORRECT (Y/N) ? "
1 "0";" PRESS ANY KEY ";
1 "0";" ";:
1 "0";" ":
1 "(N):*SWAP:
1 "(*" "*)" "{" "}"
1 " TOVABB ";
1 " NO Work to Disk"'''" Work only to TAPE !!!":
1 " sPASIBO,":*NORMAL:
1 " PRO-DOS 2.0":*NORMAL:
1 !&!*!-!L!O!e!h!k!n!q!v!z!}!
1 y (z X1 Y1))
1 smi vest jen do bloku,kde se vyskytuje
1 open.file problem
1 note : use standard HP editor for other commands [C,R,G,P..]
1 june 1992.
1 is not true or false
1 is not a word
1 is already defined
1 is a primitive
1 hits editor
1 has no value
1 doesn't like
1 does not output to
1 beep : no (more) occurence
1 beep : invalid key
1 beep : invalid key/string,no (more) room [for Z,Y]
1 a musi byt na teze urovni
1 [WAITING FOR GARBAGE COLLECTOR]
1 Z>=MAX[J]
1 Z COPY : copy text block
1 YCOR:=NEWY
1 Y) ((PP YES)) ((PP NO))))
1 Y RETURN : convert into HP format and enter HP via BASIC
1 XCOR:=NEWX;
1 X1,X2,Y1,Y2,Z1,Z2:REAL;
1 X CLEAR : clear text area
1 WRITE(HEXDIGIT(N DIV 16),HEXDIGIT(N MOD 16));
1 WHILE NOT(EOLN) DO READ(C);
1 WHILE (I<N) AND NOT(EOLN) DO BEGIN
1 Turbo Pascal V 1.0M
1 TDPLOT(X1,X2,Y1,Y2,Z1,Z2:REAL;STY:INTEGER);
1 Szekfu Andras 1984
1 Sinclair))
1 SX,SY:INTEGER;
1 SS W <> : posit end of text
1 SS S : find the S(ame string
1 SS Q <= : posit top of text
1 SS I : set I(nsert mode
1 SS E : set E(dit mode
1 SS D : D(elete cursor line
1 SS A : set A(ppend mode
1 SPOUT(CHR(21) );SPOUT(CHR(PENSTATUS));
1 SPOUT(CHR(20));SPOUT(CHR( PENSTATUS));SPOUT(CHR(21) );SPOUT(CHR(PENSTATUS));
1 SPOUT(CHR(20));SPOUT(CHR( PENSTATUS));
1 SPOUT(C:CHAR);
1 SOLI/LCSI 1984 VER. 1.6
1 SOLI / LCSI
1 SINSOFT 1985
1 SETXY(127,87);
1 SETHD(A);
1 SETHD(0);
1 SAVE:=TRUE;
1 S : S(earch the next occurence of the S(ame string
1 RENAME:=FALSE;
1 RAMPORT(BITOR(PEEK(#5C0B,INTEGER),8));
1 RAMPORT(BITAND(PEEK(#5C0B,INTEGER),#F7));
1 R : R(eplace current found string by literal
1 R : R(eplace - define literal only
1 POKE(#5CE5,OLDTYPE);
1 PLOT(X,Y);
1 PLOT(TRUE,J,Z);
1 PLOT(ROUND(XCOR),ROUND (YCOR));
1 PLOT(ON:BOOLEAN;X,Y:INTEGER);
1 PENSTATUS:INTEGER;
1 PENSTATUS:=1
1 PENSTATUS:=0;
1 PENDOWN(6)
1 PAPER(1);
1 OUTR(A:ARR);
1 OASIS SOFTWARE
1 NEWY:=YCOR+L*SIN(HEADING* 3.1415926/180);
1 NEWX:=XCOR+L*COS(HEADING* 3.1415926/180);
1 N:=ORD(C);
1 N:=DOSCALL(#13,0,0,0,OLDNAME);
1 N:=DOSCALL(#12,0,0,0,0);
1 N:=ADDR(I);
1 MANT(A:ARR):REAL;
1 LPA Ltd 1983 "
1 LINE1(X,Y,SX,SY:INTEGER);
1 LINE1(ABS(X),ABS(Y),SGNX, SGNY)
1 LINE1(ABS(DX),ABS(DY),SX,SY);
1 LINE(TRUE,ROUND(NEWX) -ROUND(XCOR),ROUND(NEWY)- ROUND(YCOR));
1 LINE(ON:BOOLEAN;X,Y:INTEGER);
1 LINE(DX,0);
1 LINE(0,DY);
1 LINE(0,-DY);
1 LINE(-DX,0);
1 J:=SLOPE
1 IS TOO LARGE AN ANGLE
1 IS NOT SYMBOLIC
1 IS NOT A NUMBER
1 IS NOT A FUNCTION
1 IS NOT A FILE NAME
1 IS AN UNBOUND VARIABLE
1 INLINE(1,#FD,#7F,#21,#15,#40,#7E,#F5,#E5,
1 INLINE(#FD,#21,#3A,#5C,#DD,#6E,2,#DD,#66,3,#AF,#32,#10,#5D,
1 INLINE(#FD,#21,#3A,#5C,#DD,#56,2,#DD,#5E,4,#DD,#46,6,
1 INLINE(#FD,#21,#3A,#5C,#DD,#56,2,#DD,#5E,4,
1 INLINE(#FD,#21,#3A,#5C,#DD,#46,2,#DD,#4E,4,#CD,#E5,#22);
1 INLINE(#FD,#21,#3A,#5C,#DD,#46,2,#DD,#4E,4,#CD,#E5,#22)
1 INLINE(#FD,#21,#3A,#5C,#2A,#5D,#5C,#E5,#DD,#6E,2,#DD,#66,3,
1 INLINE(#FD,#21,#3A,#5C,#0E,0,#CD,#13,#3D);
1 INLINE(#FD,#21,#3A,#5C,#0E,#18,#CD,#13,#3D);
1 INLINE(#FD,#21,#3A,#5C,#0E,#12,#CD,#13,#3D);
1 INLINE(#FD,#21,#3A,#5C,#0E,#0A,#CD,#13,#3D,
1 INLINE(#DD,#7E,2,#E6,3,
1 INLINE(#DD,#7E,2,#E6,#DF,#32,#0B,#5C,1,#FD,#7F,#F3,#ED,#79,#FB);
1 INLINE(#DD,#7E,2,#DD,#B6,4,#DD,#77,6,#DD,#7E,3,#DD,#B6,5,#DD,#77,7);
1 INLINE(#DD,#7E,2,#DD,#AE,4,#DD,#77,6,#DD,#7E,3,#DD,#AE,5,#DD,#77,7);
1 INLINE(#DD,#7E,2,#DD,#A6,4,#DD,#77,6,#DD,#7E,3,#DD,#A6,5,#DD,#77,7);
1 INLINE(#DD,#7E,2,
1 INLINE(#DD,#6E,6,#DD,#66,7,#DD,#5E,4,#DD,#56,5,
1 INLINE(#DD,#6E,4,#DD,#66,5,#DD,#5E,2,#DD,#56,3,
1 INLINE(#DD,#6E,2,#DD,#66,3,#0E,#14,#CD,#13,#3D);
1 INLINE(#DD,#6E,2,#DD,#66,3,#0E,#13,#CD,#13,#3D);
1 INLINE(#DD,#6E,2,#26,0,#29,#29,#29,#ED,#5B,#36,#5C,#19,
1 INLINE(#2A,#3D,#5C,#E5,#2A,#5D,#5C,#E5,
1 INLINE(#21,0,#58,#11,#20,0,#DD,#7E,6,#E6,#1F,#28,4,
1 INLINE(#21,0,#58,#11,#20,0,#0E,#1F,#DD,#7E,#0A,#A1,#28,4,
1 IF Y<0 THEN SGNY:=-1 ELSE SGNY:=1;
1 IF X<0 THEN SGNX:=-1 ELSE SGNX:=1;
1 IF SHADOW THEN ATTRBOX(UP+1,LEFT+1,HEIGHT,WIDTH,7);
1 IF FRAME=0 THEN ATTRBOX(UP,LEFT,HEIGHT,WIDTH,ATTR)
1 IF DY<0 THEN SY:=-1 ELSE SY:=1;
1 IF DX<0 THEN SX:=-1 ELSE SX:=1;
1 IF D>9 THEN D:=D+7;
1 IF (X>255) OR (X<0) OR (Y>175) OR (Y<0) THEN
1 IF (N>=0) AND (N<=5) THEN
1 IF (MODE<>0) OR (M>127) THEN N:=DOSCALL(#0B,0,0,LENGTH,START);
1 I,H,F:INTEGER;
1 I,F,H:INTEGER;
1 I,E:INTEGER;
1 I,C,F:INTEGER;
1 HEXOUTCHAR(PEEK(N,CHAR));
1 HEXOUTCHAR(PEEK(N+1,CHAR));
1 HEXDIGIT:=CHR(D+48);
1 HEADING:=HEADING+A;
1 HEADING:=A
1 GRAPHICS;
1 G : G(o to replacing all next string occurence
1 Fine testo
1 FRAME:=FRAME MOD 3;
1 FOR I:=UP TO UP+HEIGHT-1 DO
1 FOR I:=1 TO A DO
1 F,I:INTEGER;
1 F(X,Y:REAL):REAL;
1 F : F(ind - define string and enter S(earch mode
1 EX(A:ARR):INTEGER;
1 ENTIER(12000*LE)
1 ELSE BEGIN
1 E:INTEGER;
1 DX,DY,X,Y,SCALE:REAL;I,J,Z,SLOPE:INTEGER;
1 DIR(X,Y:INTEGER;
1 DIG=0..9;
1 D,F,C,I:INTEGER;
1 Copyright May 1983 M Hampson."
1 CS 9 GRAPHIC: switch graphic char. set
1 CS 8 RIGHT ARROW:cursor right / line adjust right
1 CS 7 UP ARROW: cursor/screen up
1 CS 6 DOWN ARROW: cursor/screen down
1 CS 5 LEFT ARROW: cursor left / line adjust left
1 CS 4 INV.VIDEO: page reverse
1 CS 3 TRUE VIDEO: page forward
1 CS 2 CAPS.LOCK: cap.shift lock/toggle
1 CS 1 EDIT: edit cursor line
1 CS 0 DELETE: delete char.
1 CLRBOX(UP,LEFT,HEIGHT,WIDTH);
1 CHECK(X,Y);
1 CHECK(ROUND(X+XCOR),ROUND(Y+YCOR));
1 C:=ROUND(1E3*X);
1 C,I:INTEGER;X,M:REAL;
1 B[I+1]:=B[I+1]+1
1 BEEPER(ENTIER(FR*LE),ENTIER(437500/FR-30.125));
1 BEEPER(A,B:INTEGER);
1 BEEP(FR:INTEGER;LE:REAL);
1 Any questions welcome. My tel. 373-62-71 (Moscow).Your's Vladimir Vasilevskij from MiPh&T Hacker Club.
1 All rights reserved
1 A[I]:=C-10*F;
1 AT(A,B:INTEGER);
1 A:ARR;X:REAL;E:INTEGER);
1 ? : any other = quiet S(earch
1 7 ERASE : erase text block
1 6 MOVE : move text block
1 5 CLOSE# : close text block
1 4 OPEN# : open text block
1 1992 SHISOFT Adaption
1 1989 Dereschuck Software
1 1984 HISOFT
1 1983,84 Hisoft
1 1983 Serious Software
1 0 FORMAT : toggle 64/32 column display FORMAT
1 (Zip Y z x ((X|X1)|y))
1 $ ( - 0 @ C J M P V ] o
1 #DD,#4E,8,#CD,#BA,#24)
1 dg=fok tl=teknoc lepes
1 WRITE('Out of limits');
1 SAVE:=FALSE;
1 RENAME:=TRUE;
1 RECTANGLE(8*LEFT+2,8*(23-UP-HEIGHT)-6,WIDTH*8-4,HEIGHT*8-4);
1 READ(C);
1 RAMPORT(BITOR(N,BITAND(PEEK(#5C0B,INTEGER),#F8)));
1 POKE(STR+I,C);
1 POKE(#5CE5,NEWTYPE);
1 POKE(#5CDD,PEEK(NEWNAME,ARRAY[1..8] OF CHAR));
1 POKE(#5C8F,0);
1 N:=DOSCALL(9,M,0,0,0);
1 N:=DOSCALL(8,M,0,0,0);
1 Mike Leaman
1 IF MODE=3 THEN N:=DOSCALL(#12,0,0,0,0);
1 IF FRAME=2 THEN
1 IF (N=4) OR (N=5) THEN N:=N+2;
1 IF (N=2) OR (N=3) THEN N:=N+1;
1 HISOFT Pascal HP4TM16 compiler/AD64 editor/AD Consul driver
1 FWD(R); TURN(1)
1 FOR J:=LEFT TO LEFT+WIDTH-1 DO
1 Dmitri Petras
1 ATTRBOX(UP,LEFT,HEIGHT,WIDTH,BORDER);
1 ATTRBOX(UP+1,LEFT+1,HEIGHT-2,WIDTH-2,ATTR);
1 31.10.1992 BETA-disk adapted by Michael Markowsky.
1 (which X))
1 (vartrans ((X
1 (symbval Z))
1 (shrink Z x))
1 (shift-r ((Z|X) (Y) x) Z1 (z X1 Y1)))
1 (shift-l (Y (Z) (X|x)) Z1 (z X1 Y1)))
1 (save-mods X Y))
1 (respond x Y))
1 (name Y Z1)
1 (listvars Y x))
1 (listp X Y)
1 (exp-parse x1 y1)
1 (exp-parse Z x)
1 (exp-par
1 (edit X Y))
1 (ed X Y DELCL))
1 (ed X Y /*))
1 (delete X Y))
1 (defined Expression-Parse))
1 (chpp (X Y Z))
1 (cedit X Y))
1 (bind Y X1 x Y1 z))
1 (bind X Z X1 y Y1)
1 (add X Y))
1 (Zip (Y Z) (y z) X1 Y1))
1 (X-parse Z x1 Y1 ((Z1 X1 x1 x)|z))
1 (X-parse X X1 y Y1)
1 (WRITE X (x))
1 (WRITE X (Z))
1 (WRITE X (Y))
1 (WRITE X (CLMOD))
1 (SUM y 1 Z1)
1 (SUM X 1 Z)
1 (SUM 1 z X)
1 (SUM 1 y X)
1 (SUM 1 Z1 y)
1 (SUM 1 Y2 X1)
1 (RFILL (ready) Z)
1 (RFILL (Y ((X|x)|z)) X1)
1 (Prompt (Where ?) Z1)
1 (Prompt (Put clause Z in relation y "?(yes/no) ") Y1)
1 (Prompt ("[" Y "]" Z) x)
1 (PP trying Y)
1 (PP Z Y X)
1 (PP X is now in workspace))
1 (PP X either branch)
1 (PP Workspace is now clear))
1 (PP Whole program deleted Y K free))
1 (PP Unwrapping X onto scratch file)
1 (PP Module X deleted Y K free))
1 (PP K left))
1 (PP Hit ENTER when)
1 (PP Hit ENTE
1 (PP EDIT of X finished)
1 (PP All clauses for X deleted))
1 (P-code X Z)
1 (P Whole program "?(yes/no)")
1 (P Error X Z)
1 (P "more(y/n)")
1 (P "error&(? for info)")
1 (OR ((DELCL Y)) ((PP No clause X))))
1 (OR ((CL ((X|Y)|Z) 1 1) (vartrans x ((X|Y)|Z)) (Edit-P X 1 x)) ((Edit-P X 0 "No clause"))))
1 (ON X Z x))
1 (NOT yes X)
1 (NOT SYS (z1|X2))
1 (NOT ON X x samevar)
1 (NOT EQ x "y"))
1 (NOT EQ Z "No clause")
1 (NOT ? ((EQ X a) (EQ Y b))))
1 (LISTP X)
1 (LIST X))
1 (LIST ALL))
1 (LESS 0 X1)
1 (KILL yes)
1 (KILL Z1)
1 (KILL ALL)
1 (Insert-in-P Y x y))
1 (INT Z1)
1 (INT X1)
1 (IF (sysop X) ((EQ x (z X1)) (EQ y (z X X1))) ((EQ y (X|x))))
1 (IF (less Y x) ((X-parse (X Y (Z x|y)) z X1 Y1)) ((X-parse ((X Y Z) x|y) z X1 Y1))))
1 (IF (LESS z 0) ((SHIFT-L X Y Z z x y)) ((LESS 0 z) (SHIFT-R X Y Z z x y))))
1 (IF (EQ X z1) () ((PP relation changed to z1))))
1 (IF (DELCL X Y) () ((PP No clause Y for X))))
1 (Goto-P X Y x))
1 (Front-C z Z x y
1 (Edit-term y x))
1 (Edit-P X y z))
1 (Edit-P X Y Z))
1 (EdP X Y Z x))
1 (EQ y ((X|z)|X1))
1 (EQ y ((X|z)|X1)
1 (EQ Z1 (z1|X2))
1 (EQ Z ((y|z)|X1))
1 (EQ Y1 yes)
1 (EQ Y1 (Z1|x1))
1 (EQ Y (Z|x))
1 (EQ X yes)
1 (EQ X Y)
1 (EQ X CONS)
1 (EQ X (Y|Z))
1 (E-in-P X Y Z x y z)
1 (DownC Y y)
1 (DICT z X1 Y1|Z1)
1 (DICT X Y Z|x)
1 (DELCL ((value X Z)))
1 (DELCL ((count X)))
1 (D-C X Y Z))
1 (CREATE $$$$$$$$.###)
1 (CON Y))
1 (CLOSE X))
1 (CLOSE X)
1 (Append-in-P Z Y x y))
1 (Append-in-P Z Y x Z))
1 (App-C Z x y))
1 (App-C Y Z x))
1 (App-C Y X y))
1 (ADDCL Z Z1)
1 (ADDCL (Z|z) y))
1 (ADDCL (Z1|y1) Y2)
1 (ADDCL (Y|x) 32767))
1 (ADDCL ((yes yes)))
1 (ADDCL ((yes X))))
1 (ADDCL ((yes (Z Y X))))
1 (ADDCL ((value X Y))))
1 (ADDCL ((value X (Y|Z)))))
1 (ADDCL ((count Z)))
1 (? ((dict Y) (Y Z X) (PP Z Y X)))
1 (? ((dict Y) (Y X Z) (PP X Y Z)))
1 where n,m - numbers of the first & last line to be saved.
1 where 1: - mean drive A:
1 XCOR,YCOR - REAL coords of turtle.
1 VPUTCHAR(I,J,' ');
1 VECTOR(A,L:REAL) - move turtle by L units in A direction;
1 TURTLE - initialisation of global variables:
1 TURN(A:REAL) - turn turtle anticlockwise.
1 SPOUT(C:CHAR) - out character trough RON (RST #10).
1 SPOUT(C:CHAR) - out character trough ROM (RST #10).
1 SETXY(X,Y:REAL) - set absolute position of turtle.
1 SETHD(A:REAL) - set HEADING to turtle's direction;
1 RIGHT(A:REAL) - TURN(-A).
1 RECTANGLE(8*LEFT+5,8*(23-UP-HEIGHT)-3,WIDTH*8-10,HEIGHT*8-10);
1 PLOT(X,Y:INTEGER) - set (if PENSTATUS=0) or reset (=1) point
1 PLOT(ON:BOOLEAN;X,Y:INTEGER) - set (ON=TRUE) or reset
1 PENUP - set pen up.
1 PENSTATUS - INTEGER pen status: 0 - down, 1 - up.
1 PENDOWN(C:INTEGER) - C: 0..8; set pen down with color C.
1 NOTE: if you don't enter 1:, file will be saved to tape.
1 NOTE: if you don't enter 1:, file will be loaded from tape.
1 LEFT(A:REAL) - TURN(A).
1 HEADING - REAL angle of turtle's direction. 0 is the East.
1 FWD(L:REAL) - move turtle forward by L units in direction
1 CHECK(X,Y:INTEGER) - check correction of drawing coords.
1 BEEPER(A,B:INTEGER) - CALL #03B5, DE=A, HL=B.
1 BEEP(FR:INTEGER,LE:REAL) - beep; frequency=FR, time=LE sec;
1 BACK(L) - like FWD but back.
1 AT(A,B) - like BASIC's AT A,B.
1 ARCR(R:REAL,A:INTEGER) - turtle move on arc with radius R
1 (About compiler options look in the Hisoft Pascal Manual)
1 newpage
1 USING $P COMPILER OPTION AND CHR(16); UDG AVAILABLE;
1 #DD,#7E,2,#C5,#E5,#41,#77,#23,#10,#FC,#E1,#19,#C1,#10,#F4);
1 #A1,#3C,#28,#19,#47,#DD,#7E,4,#3D,#A1,#3C,#28,#10,#4F,
1 #47,#19,#10,#FD,#DD,#7E,8,#A1,#85,#6F,#DD,#7E,6,#3D,
1 #47,#19,#10,#FD,#DD,#7E,4,#E6,#1F,#85,#6F,#DD,#7E,2,#77);
1 enter spaces if name less than 8 characters)
1 compiler will give an error.
1 Command 'W' absent because 'include' work only with disk.
1 COMPILER RAMTOP=60964; RAMTOP FOR 'T'=64899
1 80 COLUMNS PER LINE ; 64/32 COL SCREEN FORMAT
1 #E5,#DD,#7E,5,#E6,#1F,#CD,#9E,#0E,#DD,#7E,3,#E6,#1F,#4F,
1 #D1,6,0,9,6,8,#1A,#77,#13,#24,#10,#FA);
1 #FD,#21,#3A,#5C,#AF,#DD,#77,5,#6F,#67,#39,#2B,#2B,
1 #FD,#21,#3A,#5C,#AF,#32,#10,#5C,#0E,#0B,#CD,#13,#3D);
1 #FD,#21,#3A,#5C,#0E,9,#CD,#13,#3D);
1 #FD,#21,#3A,#5C,#0E,8,#CD,#13,#3D);
1 #FD,#21,#3A,#5C,#0E,6,#CD,#13,#3D);
1 #FD,#21,#3A,#5C,#0E,5,#CD,#13,#3D);
1 #FD,#21,#3A,#5C,#0E,2,#CD,#13,#3D);
1 #FD,#21,#3A,#5C,#0E,1,#CD,#13,#3D);
1 #FD,#21,#3A,#5C,#0E,#0E,#CD,#13,#3D);
1 #E1,#22,#5D,#5C,#E1,#22,#3D,#5C);
1 #DD,#71,4,#DD,#70,5);
1 #DD,#71,2,#DD,#36,3,0);
1 #DD,#5E,4,#DD,#56,5,#DD,#46,6,#DD,#7E,8,
1 #DD,#4E,#0A,#CD,#13,#3D,#DD,#71,#0C,#DD,#36,#0D,0);
1 #DD,#46,6,#DD,#4E,8,#CD,#BA,#24);
1 #CD,3,#3D,#E1,#D1,#73,#23,#72,#E1,#22,#5D,#5C,
1 #BE,#3E,1,#28,1,#AF,#DD,#77,2,#E1,#F1,#77,
1 #AF,#32,#10,#5C,#DD,#7E,2,
1 #7E,#22,#5D,#5C,#CD,#41,#1B,#3A,#3A,#5C,#3C,#DD,#77,4,
1 #3E,#AA,#F3,#77,#ED,#69,#26,#C0,
1 #3E,#10,#ED,#79,#32,#0B,#5C,#FB);
1 #2B,#56,#36,#3A,#2B,#5E,#36,#EA,#D5,#E5,#22,#5D,#5C,
1 #22,#3D,#5C,#3D,#32,#3A,#5C,#DD,#6E,2,#DD,#66,3,
1 set pen down with color 6 and paper 1.
1 filename - no more than 8 characters.
1 XCOR=127, YCOR=87, HEADING=0;
1 Adapted by Michael Marckowsky.
1 Included after VAR declarations.
1 NEWNAME:INTEGER;NEWTYPE:CHAR):BOOLEAN;
1 defined by HEADING.
1 ATTR,BORDER:INTEGER;SHADOW:BOOLEAN);
1 0-East, 90-North, 180-West, 270-South.
1 {$F 1:filename}
1 Pn,m,1:filename
1 G,,1:filename
1 INTERFACE:
1 direction will be saved.
1 in X,Y coords.
1 INTERFACE
1 (ON=FALSE) POINT in X,Y coords.
1 {
1 screen at #4000, enable TR DOS.
1 Return FALSE if not 128K.
1 and angle A anticlockwise.
1 phisical pages 0 1 3 4 6 7.
1 pages 0 1 2 3 4 5 correspond to
1 if FR=0 then pause LE sec.
1 }
1 LOGO EDITOR
1